Program Example2;
{   Rand      0  50,
  ,  ,       Rand}
Var Rand: array[1..20] of integer;
       I, X, NumberX : integer,
Begin
{   }
	Randomize;
{        }
	Writeln(  :)
	For I:=1 to 10 do
	begin
	      Rand[I]:=random(50); Write(Rand[I]:4)
	End;
	Writeln;
{ }
	Write( :)); Readln(X);
{     }
	NumberX:=0;
	For I:=1 to 10 do
		If   Rand(I)=X then NumberX:=NumberX+1;
{   }
	If  NumberX=0
	Then	writeln(   ,X)
	Else writeln(,X,  ,NumberX,)
End.